home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / basic / REDHelpFix1.lha / Red_help.rx < prev    next >
Text File  |  1999-02-27  |  1KB  |  60 lines
  1. /* B */
  2. PARSE ARG lib cmd port screen agport aph
  3. OPTIONS RESULTS
  4. OPTIONS FAILAT 255
  5. SIGNAL ON FAILURE
  6. cmd1="Blitz2:RedHelp/AGSHOW >NIL: <NIL: "
  7. cmd2="LINK "
  8. IF SUBSTR(cmd,LENGTH(cmd),1)="_" THEN DO
  9.   cmd=SUBSTR(cmd,1,LENGTH(cmd)-1)
  10. END
  11. IF(cmd~="!" & lib~="!") THEN DO
  12.     cmd1=cmd1||lib||" DOCUMENT "||cmd
  13.     cmd2=cmd2||lib||"/"||cmd
  14. END
  15. IF(cmd="!" & lib="!") THEN DO
  16.     cmd1=cmd1||"Blitz2:REDHelp/REDBlitzLibs/REDBlitzLibs.GUIDE DOCUMENT MAIN"
  17.     cmd2=cmd2||"Blitz2:REDHelp/REDBlitzLibs/REDBlitzLibs.GUIDE/MAIN"
  18. END
  19. IF(cmd~="!" & lib="!") THEN DO
  20.     tempfile="Blitz2:RedHelp/MiscCommands/"||cmd||".GUIDE"
  21.     a=OPEN(hf,tempfile,"R")
  22.     if a=0 then do
  23.         ADDRESS VALUE port
  24.         HELPTEXT
  25.         myhelptext=RESULT
  26.         ADDRESS "REXX"
  27.         a=OPEN(hf,tempfile,"W")
  28.         a=WRITELN(hf,"@DATABASE Command Help")
  29.         a=WRITELN(hf,'@NODE MAIN "'||cmd||'"')
  30.         a=WRITELN(hf,"")
  31.         a=WRITELN(hf,"@{fg shine}Command : "||cmd||"@{fg text}")
  32.         a=WRITELN(hf,"--------------------------------------------------------------------------------")
  33.         a=WRITELN(hf,"@{b}USAGE   : @{ub}"||myhelptext)
  34.         a=WRITELN(hf,"")
  35.         a=WRITELN(hf,"@ENDNODE MAIN")
  36.         a=WRITELN(hf,"")
  37.         a=CLOSE(hf)
  38.     end
  39.     cmd1="Blitz2:RedHelp/AGShow >NIL: <NIL: "
  40.     cmd2="LINK "
  41.     lib=tempfile
  42.     cmd="!"
  43. END
  44. IF(cmd="!" & lib~="!") THEN DO
  45.     cmd1=cmd1||lib||" DOCUMENT MAIN"
  46.     cmd2=cmd2||lib||"/MAIN"
  47. END
  48. cmd1=cmd1||" PORTNAME "||agport||" PUBSCREEN "||screen
  49. IF aph="YES" THEN DO
  50.     address VALUE agport||'.1'
  51.     cmd2
  52. END
  53. IF aph="NO" THEN DO
  54.     address "COMMAND"
  55.     cmd1
  56. END
  57. EXIT 0
  58. failure:
  59. EXIT 0
  60.